home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 81 / 081.d81 / elevator music (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  227 lines
  1. 15 print"[147]"chr$(142)"":poke53281,0:poke53280,0
  2. 17 :
  3. 18 :rem  load files
  4. 19 :
  5. 20 poke52,55:poke56,55
  6. 30 sys57812"el font",8,0:poke780,0:poke781,0:poke782,56:sys65493:poke53272,30
  7. 40 print"    [152] another knees[146] calhoon[146] [152]debacle"
  8. 50 sys57812"el spr",8,0:poke780,0:poke781,0:poke782,55:sys65493
  9. 60 sys57812"ss 1990.em",8,0:poke780,0:poke781,60:poke782,3:sys65493
  10. 70 sys57812"basic player.o",8,0:poke780,0:poke781,254:poke782,203:sys65493
  11. 80 sys57812"m.elevator",8,0:poke780,0:poke781,0:poke782,64:sys65493
  12. 90 sys57812"w.elevator",8,0:poke780,0:poke781,104:poke782,207:sys65493
  13. 100 poke53265,9:gosub1500:print"[147]":poke53281,0
  14. 110 open15,8,15,"r0:swat team=swat team":input#15,er:close15:ifer<>63then450
  15. 150 open3,8,3,"swat team,s,r"
  16. 160 input#3,sw:fori=1tosw
  17. 165 input#3,mv(i):mv$(i)=str$(mv(i))
  18. 170 input#3,sw$(i)
  19. 180 next:close3:goto450
  20. 187 :
  21. 188 :rem  subroutines
  22. 189 :
  23. 190 printtab(18)"[158][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  24. 200 [153][163]18)"(NULL) f1 clrsurrender      sys(NULL)
  25. 210 printtab(18)"[221] f3 [156]take back move [158][221]
  26. 220 [153][163]18)"(NULL) f5 clrsee swat team  sys(NULL)
  27. 230 printtab(18)"[221] f7 [156]go to loadstar [158][221]
  28. 240 [153][163]18)"(NULL) s  clrtoggle muzak   sys(NULL)
  29. 245 printtab(18)"[221] h  [156]help screens   [158][221]
  30. 250 [153][163]18)"-lenlenlenlenlenlenlenlenlen=lenlenlenlenlenlenlenlenlen<
  31. 260 printtab(18)"[221][156] floors  [158][221]  [156]moves  [158][221]
  32. 270 [153][163]18)"(NULL)    cont0sys    (NULL)    cont0sys    (NULL)
  33. 280 printtab(18)"[202][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][203]
  34. 290 [142]
  35. 300 [153]"loadclr(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$"
  36. 310 [129]i[178]0[164]22:[153]"(NULL)"[163]38)"(NULL)":[130]
  37. 320 [153]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)"
  38. 330 [142]
  39. 332 [141]300
  40. 334 [153]"for   s w a t    t e a m s t e r s"
  41. 335 [129]i[178]1[164]sw[169]2
  42. 336 [153][163]1)"open"mv$(i)[163]5)"cont"sw$(i);
  43. 337 [153][163]19)"open"mv$(i[170]1)[163]23)"cont"sw$(i[170]1)
  44. 338 [130]
  45. 339 [151]214,22:[153]:[153][163]2)"syspress any key to resume the assault"
  46. 340 [151]198,0
  47. 341 [161]a$:[139]a$[178]""[167]341
  48. 342 [142]
  49. 350 [151]198,0
  50. 355 [161]a$:[139]a$[178]""[167]355
  51. 360 [142]
  52. 370 [151]214,22:[153]:[153][163]20)" surrender? (y/n)on"
  53. 380 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]380
  54. 385 [153][163]20)"                 on"
  55. 390 [139]k$[178]"n"[167][142]
  56. 400 f1[178]1:[142]
  57. 410 [151]214,22:[153]:[153][163]20)"to loadstar (y/n) on"
  58. 420 [161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]420
  59. 425 [153][163]20)"                 on"
  60. 430 [139]k$[178]"n"[167][142]
  61. 440 f7[178]1:[142]
  62. 447 :
  63. 448 :[143]  setup
  64. 449 :
  65. 450 [153][199](142):[151]53272,30
  66. 460 [134]d%(11,5)
  67. 470 v[178]53248:[151]2040,220:[151]2041,221:[151]v[170]39,1:[151]v[170]40,1
  68. 480 [151]2042,220:[151]2043,221:[151]v[170]41,12:[151]v[170]42,12
  69. 490 [151]v[170]29,0:[151]v[170]27,15
  70. 500 tp$[178]"(NULL)lenlenlen=lenlenlen=lenlenlen=lenlenlenright$"
  71. 510 m1$[178]"(NULL)   (NULL)   (NULL)   (NULL)   (NULL)"
  72. 520 m2$[178]"-lenlenlen(NULL)lenlenlen(NULL)lenlenlen(NULL)lenlenlen<"
  73. 530 bt$[178]"mid$lenlenlen>lenlenlen>lenlenlen>lenlenlen(NULL)"
  74. 540 [129]i[178]0[164]3:[135]b$(i):[130]
  75. 550 [131]"fn then","fn then","fn then","clrfn then"
  76. 560 n%(1)[178]5:n%(2)[178]2:n%(3)[178]6:n%(4)[178]4
  77. 570 [151]53265,9:[153]"loadprint#"tp$:sc[178]0:g[178]0:sn[178]1
  78. 580 [129]i[178]0[164]9:[153]m1$:[153]m2$:[130]
  79. 590 [153]m1$:[153]bt$
  80. 600 [153]""
  81. 640 [129]i[178]0[164]3:[129]j[178]0[164]3
  82. 650 [151]214,15[170]2[172]j:[153]
  83. 660 [153][163]1[170]i[172]4)b$((j[170]i)[175]3)
  84. 670 [130]:[130]
  85. 680 [153]"def"
  86. 690 [153][163]17)"(NULL)lenright$right$ (NULL)lenright$right$(NULL)(NULL)lenright$(NULL)=right$(NULL)lenright$(NULL)lenright$"
  87. 700 [153][163]17)"-< (NULL) -< (NULL)(NULL)-len< (NULL) (NULL) (NULL)-=(NULL)"
  88. 710 [153][163]17)"mid$len(NULL)mid$(NULL)mid$len(NULL)mid$(NULL)> > > mid$len(NULL)>mid$<"
  89. 720 [153][163]21)"(NULL)right$(NULL)right$right$ (NULL)(NULL)lenright$=(NULL)lenright$
  90. 730 printtab(21)"[221][221][221][221][221] [221][202][195][201][221][221]
  91. 740 [153][163]21)"(NULL)mid$(NULL)(NULL)(NULL) (NULL)  (NULL)(NULL)(NULL)
  92. 750 printtab(21)"[203]  [202][202][195][203][202][195][203][177][202][195][203]
  93. 760 [153][163]19)"help openfenderwait tucker"
  94. 765 [153][163]18)"defregain the penthouse"
  95. 770 [141]190
  96. 780 [129]i[178]0[164]10:[129]j[178]0[164]3:d%(i,j)[178]0:[130]:[130]:[143] clear grid
  97. 790 [129]i[178]0[164]3:[129]j[178]0[164]3:d%(i,3[171]j)[178]((2[171](j[170]i))[175]3)[170]1:[130]:[130]: [143]  set up
  98. 800 [151]53265,27:[158]52222,16384
  99. 807 :
  100. 808 :[143]  loop
  101. 809 :
  102. 810 x[178]0:y[178]0:f1[178]0:f3[178]1:f7[178]0:mv(sw[170]1)[178]0
  103. 820 [151]v,27[170]x[172]32:[151]v[170]1,224[171]y[172]16:[151]v[170]2,36[170]x[172]32:[151]v[170]3,224[171]y[172]16
  104. 840 e[178]0:[129]j[178]0[164]3:[139]d%(y,j)[167]e[178]e[170]1
  105. 850 [130]
  106. 860 [139]y[170]e[177]10[167]960
  107. 870 [139]d%(y[170]e,x)[167][151]v[170]21,3:[137]970
  108. 880 [129]i[178]0[164]3:[139]d%(y[170]e,i)[178]d%(y,x)[167]i[178]3:[130]:[137]960
  109. 890 [130]
  110. 900 [139]e[179][177]1[167]940
  111. 910 f[178]0:[129]i[178]10[164]y[170]1[169][171]1:[129]j[178]0[164]3:[139]d%(i,j)[178]d%(y,x)[167]f[178]1
  112. 920 [130]:[130]
  113. 930 [139]f[178]0[167]960
  114. 940 [151]v[170]4,[194](v):[151]v[170]5,[194](v[170]1)[171]e[172]16:[151]v[170]6,[194](v)[170]9:[151]v[170]7,[194](v[170]3)[171]e[172]16
  115. 950 [151]v[170]21,15:[151]v[170]41,n%(d%(y,x)):[151]v[170]42,n%(d%(y,x)):[137]970
  116. 960 [151]v[170]21,3
  117. 970 [151]198,0:[153]""
  118. 980 [161]a$:[139]sn[167][139][194](2)[178]255[167][158]52222,16384
  119. 990 [139]a$[178]""[167]980
  120. 1000 [139]a$[178]"s"[167]sn[178]1[171]sn:[139]sn[167][158]52222,16384
  121. 1010 [139]sn[178]0[167][158]52225
  122. 1015 [139]a$[178]"f"[167]ft[178]1[171]ft:[151]53272,30[171]9[172]ft:[137]980
  123. 1020 [139]a$[178]"let"[167][141]410:[139]f7[167]1450:[143] to loadstar
  124. 1030 [139]a$[178]"input"[167][141]370:[139]f1[167]1260:[143] surrender
  125. 1040 [139]a$[178]"read"[167][151]v[170]21,0:[158]828,1:[141]332:[158]831,1:[137]820:[143] f5 swat team
  126. 1050 [139]a$[179][177]"h"[167]1070:[143]  help
  127. 1060 [151]v[170]21,0:[158]828,1:[158]831,2:[141]350:[158]831,3:[141]350:[158]831,1:[137]820
  128. 1070 [139]a$[178][199](13)[175][194](v[170]21)[178]15[167]1160
  129. 1080 [139]a$[179][177]"dim"[167]1110:[143] take back move
  130. 1090 [139]f3[167]1110
  131. 1095 mv(sw[170]1)[178]mv(sw[170]1)[171]1
  132. 1100 [158]831,1:d%(yy,xx)[178]d%(yy[170]ee,xx):d%(yy[170]ee,xx)[178]0:x[178]xx:y[178]yy:f3[178]1:sc[178]ss:[137]820
  133. 1110 [139]a$[178]""[167]y[178]y[171]1:[139]y[179]0[167]y[178]10
  134. 1120 [139]a$[178]"on"[167]y[178]y[170]1:[139]y[177]10[167]y[178]0
  135. 1130 [139]a$[178]""[167]x[178]x[170]1:[139]x[177]3[167]x[178]0
  136. 1140 [139]a$[178]"cmd"[167]x[178]x[171]1:[139]x[179]0[167]x[178]3
  137. 1150 [137]820
  138. 1157 :
  139. 1158 :[143]  make move
  140. 1159 :
  141. 1160 [158]828,1:[151]214,21[171]2[172]y:[153]:[153][163]1[170]x[172]4)"   "
  142. 1165 mv(sw[170]1)[178]mv(sw[170]1)[170]1:mv$(sw[170]1)[178][196](mv(sw[170]1))
  143. 1170 [151]214,21[171]2[172]y[171]2[172]e:[153]:[153][163]1[170]x[172]4)b$(d%(y,x)[171]1):yy[178]y:xx[178]x:ee[178]e
  144. 1180 d%(y[170]e,x)[178]d%(y,x):d%(y,x)[178]0
  145. 1190 [151]v[170]21,0:ss[178]sc:f3[178]0
  146. 1200 sc[178]0:[129]i[178]0[164]3:[129]j[178]0[164]3
  147. 1210 [139][194](1106[170]i[172]4[170]j[172]80)[179][177]32[167]sc[178]sc[170]1
  148. 1220 [130]:[130]
  149. 1225 sg[178]sc[172].25:sg$[178][200]([196](sg),5)
  150. 1230 [151]214,20:[153]:[153][163]19)"         sys(NULL)         on"
  151. 1235 [153][163]23[171][195](sg$)[173]2)"cont"sg$;[163]32[170](mv(sw[170]1)[177]9))mv$(sw[170]1)
  152. 1240 [139]sc[178]16[175]sw[179]30[167][151]v[170]21,0:[137]1270
  153. 1250 [137]820
  154. 1260 [151]v[170]21,0:[158]52225:[139]sc[179]16[167]570
  155. 1270 [151]214,12:[153]
  156. 1280 [153][163]19)"sys congratulations!  "
  157. 1285 [153][163]19)"  you recaptured   "
  158. 1290 [153][163]19)"  the penthouse!   "
  159. 1300 [153][163]19)"                   "
  160. 1320 [153][163]19)"  enter your name  "
  161. 1330 [153][163]20)"                  on"
  162. 1340 [153][163]22);:[141]1830
  163. 1350 sw[178]sw[170]1:sw$(sw)[178]q9$
  164. 1360 [